home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Help Menu 1.xpl < prev    next >
Text File  |  2003-11-19  |  4KB  |  146 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\Interface Lockdown"
  5. "NAME"="Help Menu Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.01"
  8. "TEXT 1"="Show Help menu"
  9. "TEXT 2"="Show "Tip of the Day" in Help menu"
  10. "TEXT 3"="Show "Tutorial" in Help menu"
  11. "TEXT 4"="Show "Send feedback" in Help menu"
  12. "TEXT 5"="Show "For Netscape..." in Help menu"
  13. "DESCRIPTION 1"="To show an item in the Help menu, activate it. To hide it, deactivate it."
  14. "DESCRIPTION 2"="NOTE #1: You need to restart Internet Explorer so the changes can take effect."
  15. "DESCRIPTION 3"="NOTE #2: If you are using Internet Explorer 5.01, the changes will affect all users. If you are using Internet Explorer 5.0, 5.5, 6.0 or later, the changes only affect the current user."
  16. "DESCRIPTION 4"="NOTE #3: In Internet Explorer 5.0, the 'Show Help Menu' option has no effect."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Thanks to hydreux@yahoo.com [mailto:hydreux@yahoo.com] for the correct registry location!"
  21. "COMMENT 2"="IE 5.0, 5.01 and 5.5+ options combined together by Neil Turner."
  22.  
  23. ' Paths for all the three different IE versions
  24. sPath1="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\"
  25. sPath2="HKCU\Software\Policies\Microsoft\Internet Explorer\"
  26. sPath3="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  27.  
  28. ' Get the IE version from here
  29. sVer="HKLM\Software\Microsoft\Internet Explorer\Version"
  30.  
  31. ' IE 5.01+ value names
  32. sHLP="NoHelpMenu"
  33. sTIP="NoHelpItemTipOfTheDay" 'all dword (1 = remove)
  34. sTUT="NoHelpItemTutorial"
  35. sFED="NoHelpItemSendFeedback"
  36. sNET="NoHelpItemNetscapeHelp"
  37.  
  38. ' IE 5.0 value names
  39. sTIP2="remove tip of the day" 'all dword (1 = remove)
  40. sTUT2="remove tutorial"
  41. sFED2="remove feedback"
  42. sNET2="remove netscape help"
  43.  
  44. Sub Plugin_Initialize
  45.  s=RegReadValue(sVer)
  46.  if s>"5.5" then
  47.   ' IE 5.5 / 6.0
  48.   i=RegReadValue(sPath1 & sHLP)
  49.   if i<>1 then SetUIElement 1,true
  50.  
  51.   i=RegReadValue(sPath1 & sTIP)
  52.   if i<>1 then SetUIElement 2,true
  53.  
  54.   i=RegReadValue(sPath1 & sTUT)
  55.   if i<>1 then SetUIElement 3,true
  56.  
  57.   i=RegReadValue(sPath1 & sFED)
  58.   if i<>1 then SetUIElement 4,true
  59.  
  60.   i=RegReadValue(sPath1 & sNET)
  61.   if i<>1 then SetUIElement 5,true
  62.  else
  63.   if s<"5.01" then
  64.    if s<"5.0" then
  65.     Call Disable()
  66.    end if
  67.    ' IE 5.0
  68.    i=RegReadValue(sPath2 & sTIP2)
  69.    if i<>1 then SetUIElement 2,true
  70.  
  71.    i=RegReadValue(sPath2 & sTUT2)
  72.    if i<>1 then SetUIElement 3,true
  73.  
  74.    i=RegReadValue(sPath2 & sFED2)
  75.    if i<>1 then SetUIElement 4,true
  76.  
  77.    i=RegReadValue(sPath2 & sNET2)
  78.    if i<>1 then SetUIElement 5,true
  79.   else
  80.    ' IE 5.01
  81.    i=RegReadValue(sPath3 & sHLP)
  82.    if i<>1 then SetUIElement 1,true
  83.  
  84.    i=RegReadValue(sPath3 & sTIP)
  85.    if i<>1 then SetUIElement 2,true
  86.  
  87.    i=RegReadValue(sPath3 & sTUT)
  88.    if i<>1 then SetUIElement 3,true
  89.  
  90.    i=RegReadValue(sPath3 & sFED)
  91.    if i<>1 then SetUIElement 4,true
  92.  
  93.    i=RegReadValue(sPath3 & sNET)
  94.    if i<>1 then SetUIElement 5,true
  95.   end if
  96.  end if
  97. End Sub
  98.  
  99. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  100.  s=RegReadValue(sVer)
  101.  if s>"5.5" then
  102.   ' IE 5.5 / 6.0
  103.   Call WriteIt(1,sHLP,sPath1)
  104.   Call WriteIt(2,sTIP,sPath1)
  105.   Call WriteIt(3,sTUT,sPath1)
  106.   Call WriteIt(4,sFED,sPath1)
  107.   Call WriteIt(5,sNET,sPath1)
  108.  else
  109.   if s<"5.01" then
  110.    if s<"5.0" then
  111.     Call Disable()
  112.    end if
  113.    ' IE 5.0
  114.    Call WriteIt(2,sTIP2,sPath2)
  115.    Call WriteIt(3,sTUT2,sPath2)
  116.    Call WriteIt(4,sFED2,sPath2)
  117.    Call WriteIt(5,sNET2,sPath2)
  118.   else
  119.    ' IE 5.01
  120.    Call WriteIt(1,sHLP,sPath3)
  121.    Call WriteIt(2,sTIP,sPath3)
  122.    Call WriteIt(3,sTUT,sPath3)
  123.    Call WriteIt(4,sFED,sPath3)
  124.    Call WriteIt(5,sNET,sPath3)
  125.   end if
  126.  end if
  127. End Sub
  128.  
  129. Sub WriteIt(ITM,VAL,PTH)
  130.  b=GetUIElement(ITM)
  131.  if b=false then
  132.     call RegWriteValue(PTH & VAL,1,2)
  133.  else
  134.     chk=RegReadValue(PTH & VAL)
  135.     if IsEmpty(chk)=false then
  136.        Call RegDeleteValue(PTH & VAL)
  137.     end if
  138.  end if
  139. end sub
  140.  
  141. Sub Plugin_Terminate 
  142. End Sub
  143.  
  144.  
  145.  
  146.